home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 03 - 1987 / 03.02 Feb 87 / Basic Benchmarks / Z-BASIC Programs / line-ZBASIC < prev    next >
Encoding:
Text File  |  1986-11-04  |  536 b   |  29 lines  |  [TEXT/MSBB]
  1. PRINT "Horizontal Line-ZBASIC Version using PLOT...TO..."
  2. COORDINATE WINDOW
  3.  
  4. start = TIMER   ' calculate the overhead
  5. FOR i% = 1 TO 40
  6.     FOR j% = 0 TO 200 STEP 3
  7.     NEXT j%
  8. NEXT i%
  9. finish = TIMER
  10. overhead = finish - start
  11.  
  12. start = TIMER
  13. FOR i% = 1 TO 40
  14.     FOR j% = 0 TO 200 STEP 3
  15.         PLOT i%,i% TO j%+i%,i%
  16.         PLOT i%,i% TO j%+i%,i%
  17.     NEXT j%
  18. NEXT i%
  19.  
  20. finish = TIMER
  21.  
  22. PRINT "finish = ";finish
  23. PRINT "start  = ";start
  24. PRINT "Overhead = ";overhead
  25.  
  26. PRINT ((finish - start)-overhead); " seconds"
  27. WHILE INKEY$ = "" : WEND
  28.  
  29.